home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
90xx
/
9009a.d64
/
apfel + julia
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
2KB
|
61 lines
1000 REM MANDELBROT/JULIAMENGEN-GENERATOR
1010 REM (C) 1990 BY BERND WIEBELT
1020 REM
1030 IF A=0 THEN A=1:LOAD "GRAPHTOOL.OBJ",8,1
1040 IF A=1 THEN A=2:LOAD "MANDELASS.OBJ",8,1
1050 DIM O1(320):DIM O2(320)
1060 YA=199:XA=319:REM CHR$RAFIKAUFLOESUNG
1070 PRINT"[147]M)ANDELROT ODER J)ULIAMENGEN
1080 [161]A$:[139]A$[178]"" [176] (A$[179][177]"M" [175] A$[179][177]"J") [167]1080
1090 [139]A$[178]"M" [167] MJ[178]0
1100 [139]A$[178]"J" [167] MJ[178]1
1110 [133]"REALMIN : ";RI
1120 [133]"REALMAX : ";RA
1130 [133]"IMAGMIN : ";II
1140 [133]"IMAGMAX : ";IA
1150 [133]"MAXIMALE REKURSIONSTIEFE: ";MT
1160 XS[178](RA[171]RI)[173]XA:YS[178](IA[171]II)[173]YA:[143] TRANSFORMATIONSKONSTANTEN BERECHNEN
1170 SY[178]0:[139] [182](II)[178][182](IA) [167] SY[178]1:[143] SYMMETRIECHECK !
1180 [139] MJ[178]0 [167] 1210
1190 [133]"REELLER C-TEIL : ";CR
1200 [133]"IMAGINAERER C-TEIL : ";CI
1210 [158] 49152:[158] 49158,0,1: [143] GRAFIK-INITIALISIERUNG
1220 [129] X[178]0 [164] XA:O1(X)[178]MT:O2(X)[178]MT:[130]
1230 [129] Y[178]0 [164] YA:[143] PUNKT FUER PUNKT UNTERSUCHEN
1240 L1[178]MT:L2[178]MT
1250 [129] X[178]0 [164] XA
1260 R[178]RI[170]X[172]XS:I[178]II[170]Y[172]YS
1270 [139] MJ[178]0 [167] [158] 50688,0,0,R,I,4,MT:[143] MANDELBROTREKURSIONEN DURCHFUEHREN
1280 [139] MJ[178]1 [167] [158] 50688,R,I,CR,CI,4,MT:[143] JULIA-REKURSIONEN DURCHFUEHREN
1290 T[178][194](2)
1300 [139] T[179]MT [137] 1340:[143] MAXIMALE REKURSIONSTIEFE ERREICHT?
1310 [158]49167,X,Y:[139] SY[178]0 [137] 1340
1320 [139] MJ[178]0 [167] [158] 49167,X,YA[171]Y
1330 [139] MJ[178]1 [167] [158] 49167,XA[171]X,YA[171]Y
1340 [139] (T[177][178]L1) [176] (L2[177][178]L1) [137] 1390:[143] LINKEN UND RECHTEN NACHBARPUNKT TESTEN
1350 [158] 49167,X[171]1,Y
1360 [139] SY[178]0 [137] 1390
1370 [139] MJ[178]0 [167] [158] 49167,X[171]1,YA[171]Y
1380 [139] MJ[178]1 [167] [158] 49167,XA[171]X[170]1,YA[171]Y
1390 L2[178]L1:L1[178]T
1400 [139] (T[177][178]O1(X)) [176] (O2(X)[177][178]O1(X)) [137] 1450:[143] UNT. UND OB. PUNKT TESTEN
1410 [158] 49167,X,Y[171]1
1420 [139] SY[178]0 [137] 1450
1430 [139] MJ[178]0 [167] [158] 49167,X,YA[171]Y[170]1
1440 [139] MJ[178]1 [167] [158] 49167,XA[171]X,YA[171]Y[170]1
1450 O2(X)[178]O1(X):O1(X)[178]T
1460 [130] X:[139] SY[178]1 [175] Y[177]YA[173]2 [167] Y[178]YA
1470 [130] Y
1480 [161] A$:[139] A$[178]"" [167] 1480
1490 [158]49155:[153]"LOADBILD ABSPEICHERN (J/N) ?"
1500 [161] A$:[139] A$[178]"" [167] 1500
1510 [139] A$[179][177]"J" [137] 1070
1520 [133] "FILENAME : ";B$:[158]50694,B$,8
1530 [153]"DAS BILD KANN DURCH FOLGENDE"
1540 [153]"ANWEISUNGEN WIEDER ANGEZEIGT WERDEN:"
1550 [153]"SYS 49158,0,1"
1560 [153]"SYS 50691,";[199](34);B$;[199](34);",8"
1570 [153]"SYS 49152"
1580 [161]A$:[139] A$[178]"" [167] 1580
1590 [137] 1070